home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
DDJMAG
/
DDJ9005.ZIP
/
AYERS.ZIP
/
CHECKER.CLS
< prev
next >
Wrap
Text File
|
1990-02-24
|
701b
|
40 lines
MarketActor subclass: #Checker
instanceVariableNames:
'bagger customer '
classVariableNames: ''
poolDictionaries: '' !
!Checker class methods !
alternateImageName
^'PersonLeft'.! !
!Checker methods !
bagger:aBagger
bagger := aBagger.!
checkOutCustomer
customer := self receive.!
gotIt
running
ifTrue:[
self
display;
send:#removeItemFromCart to:customer].!
release
bagger := nil. customer := nil. super release.!
takeItem
running
ifTrue:[
self
animate;
send:#takeItem to:bagger;
sleep:1;
send:#gotIt to:customer].! !